/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Prog / U-Z / ViewIt 2.2 Shareware.cpt / ViewIt™ 2.2 Shareware / Projects / LS Fortran 3.0 Demos / FaceProcLF.inc

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 46 61 63 65 50 72 | 6f 63 4c 46 2e 69 6e 63 |..FacePr|ocLF.inc|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0d 51 00 | 00 01 ac a8 c3 ef 69 a8 |......Q.|......i.|
|00000060| c3 ef 69 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..i.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 92 83 00 00 |........|........|
|00000080| 43 20 46 61 63 65 57 61 | 72 65 20 32 2e 32 20 49 |C FaceWa|re 2.2 I|
|00000090| 6e 69 74 69 61 6c 69 7a | 61 74 69 6f 6e 20 26 20 |nitializ|ation & |
|000000a0| 44 69 73 70 61 74 63 68 | 69 6e 67 20 50 72 6f 63 |Dispatch|ing Proc|
|000000b0| 65 64 75 72 65 73 0d 43 | 20 a9 46 61 63 65 57 61 |edures.C| .FaceWa|
|000000c0| 72 65 20 31 39 38 39 2d | 39 33 2e 20 20 41 6c 6c |re 1989-|93.  All|
|000000d0| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|000000e0| 2e 0d 0d 43 20 4e 4f 54 | 45 3a 20 54 6f 20 63 6f |...C NOT|E: To co|
|000000f0| 6d 70 69 6c 65 20 74 68 | 69 73 20 66 69 6c 65 20 |mpile th|is file |
|00000100| 61 73 20 61 20 73 65 70 | 61 72 61 74 65 20 6f 62 |as a sep|arate ob|
|00000110| 6a 65 63 74 2c 20 79 6f | 75 27 6c 6c 20 6e 65 65 |ject, yo|u'll nee|
|00000120| 64 0d 43 20 74 6f 20 61 | 64 64 20 74 68 65 20 22 |d.C to a|dd the "|
|00000130| 21 21 4d 20 49 6e 6c 69 | 6e 65 73 2e 66 22 20 64 |!!M Inli|nes.f" d|
|00000140| 69 72 65 63 74 69 76 65 | 20 73 65 65 6e 20 69 6e |irective| seen in|
|00000150| 20 74 68 65 20 64 65 6d | 6f 20 70 72 6f 67 72 61 | the dem|o progra|
|00000160| 6d 2e 0d 0d 09 53 55 42 | 52 4f 55 54 49 4e 45 20 |m....SUB|ROUTINE |
|00000170| 66 4a 75 6d 70 49 74 28 | 74 68 65 50 72 6f 63 2c |fJumpIt(|theProc,|
|00000180| 74 68 65 50 74 72 29 0d | 09 69 6e 74 65 67 65 72 |thePtr).|.integer|
|00000190| 2a 34 20 74 68 65 50 74 | 72 0d 09 63 61 6c 6c 20 |*4 thePt|r..call |
|000001a0| 74 68 65 50 72 6f 63 28 | 25 76 61 6c 28 74 68 65 |theProc(|%val(the|
|000001b0| 50 74 72 29 29 0d 09 72 | 65 74 75 72 6e 0d 09 65 |Ptr))..r|eturn..e|
|000001c0| 6e 64 0d 0d 09 53 55 42 | 52 4f 55 54 49 4e 45 20 |nd...SUB|ROUTINE |
|000001d0| 46 61 63 65 49 74 28 78 | 50 74 72 2c 6d 31 2c 6d |FaceIt(x|Ptr,m1,m|
|000001e0| 32 2c 6d 33 2c 6d 34 2c | 6d 35 29 0d 09 69 6d 70 |2,m3,m4,|m5)..imp|
|000001f0| 6c 69 63 69 74 20 6e 6f | 6e 65 0d 43 20 4e 4f 54 |licit no|ne.C NOT|
|00000200| 45 3a 20 49 66 20 79 6f | 75 20 75 73 65 20 74 68 |E: If yo|u use th|
|00000210| 65 20 22 21 21 47 22 20 | 64 69 72 65 63 74 69 76 |e "!!G" |directiv|
|00000220| 65 20 66 6f 72 20 70 72 | 65 63 6f 6d 70 69 6c 65 |e for pr|ecompile|
|00000230| 64 20 67 6c 6f 62 61 6c | 73 2c 20 61 64 64 0d 43 |d global|s, add.C|
|00000240| 20 6f 75 72 20 46 61 63 | 65 53 74 6f 72 4c 46 2e | our Fac|eStorLF.|
|00000250| 69 6e 63 20 67 6c 6f 62 | 61 6c 73 20 74 6f 20 79 |inc glob|als to y|
|00000260| 6f 75 72 73 20 61 6e 64 | 20 74 68 65 6e 20 72 65 |ours and| then re|
|00000270| 6d 6f 76 65 20 66 6f 6c | 6c 6f 77 69 6e 67 20 6c |move fol|lowing l|
|00000280| 69 6e 65 0d 09 69 6e 63 | 6c 75 64 65 20 27 46 61 |ine..inc|lude 'Fa|
|00000290| 63 65 53 74 6f 72 4c 46 | 2e 69 6e 63 27 0d 20 20 |ceStorLF|.inc'.  |
|000002a0| 20 20 20 20 72 65 63 6f | 72 64 20 2f 46 61 63 65 |    reco|rd /Face|
|000002b0| 52 65 63 2f 20 66 52 65 | 63 0d 20 20 20 20 20 20 |Rec/ fRe|c.      |
|000002c0| 63 6f 6d 6d 6f 6e 2f 46 | 61 63 65 53 74 75 66 66 |common/F|aceStuff|
|000002d0| 2f 66 52 65 63 0d 09 73 | 74 72 75 63 74 75 72 65 |/fRec..s|tructure|
|000002e0| 20 2f 48 65 61 64 52 65 | 63 2f 0d 09 20 20 69 6e | /HeadRe|c/..  in|
|000002f0| 74 65 67 65 72 2a 34 20 | 61 64 64 72 0d 09 20 20 |teger*4 |addr..  |
|00000300| 69 6e 74 65 67 65 72 2a | 32 20 62 61 73 65 49 44 |integer*|2 baseID|
|00000310| 0d 09 20 20 69 6e 74 65 | 67 65 72 2a 32 20 76 65 |..  inte|ger*2 ve|
|00000320| 72 73 49 44 0d 09 20 20 | 69 6e 74 65 67 65 72 2a |rsID..  |integer*|
|00000330| 32 20 6d 65 73 73 61 67 | 65 0d 09 20 20 69 6e 74 |2 messag|e..  int|
|00000340| 65 67 65 72 2a 32 20 72 | 65 73 49 44 0d 09 20 20 |eger*2 r|esID..  |
|00000350| 69 6e 74 65 67 65 72 2a | 34 20 66 50 74 72 0d 09 |integer*|4 fPtr..|
|00000360| 65 6e 64 20 73 74 72 75 | 63 74 75 72 65 0d 09 70 |end stru|cture..p|
|00000370| 6f 69 6e 74 65 72 20 2f | 48 65 61 64 52 65 63 2f |ointer /|HeadRec/|
|00000380| 20 74 68 65 50 74 72 0d | 09 63 68 61 72 61 63 74 | thePtr.|.charact|
|00000390| 65 72 2a 34 20 72 65 73 | 74 79 70 65 0d 09 69 6e |er*4 res|type..in|
|000003a0| 74 65 67 65 72 2a 34 20 | 78 50 74 72 2c 6d 31 2c |teger*4 |xPtr,m1,|
|000003b0| 6d 32 2c 6d 33 2c 6d 34 | 2c 6d 35 2c 69 2c 66 50 |m2,m3,m4|,m5,i,fP|
|000003c0| 74 72 0d 09 74 68 65 50 | 74 72 20 3d 20 78 50 74 |tr..theP|tr = xPt|
|000003d0| 72 0d 09 66 50 74 72 20 | 3d 20 25 6c 6f 63 28 66 |r..fPtr |= %loc(f|
|000003e0| 52 65 63 29 0d 09 69 66 | 20 28 6d 31 20 3d 20 2d |Rec)..if| (m1 = -|
|000003f0| 36 31 29 20 74 68 65 6e | 0d 09 20 20 69 66 20 28 |61) then|..  if (|
|00000400| 28 6d 34 20 3e 20 2d 31 | 29 2e 61 6e 64 2e 28 2e |(m4 > -1|).and.(.|
|00000410| 6e 6f 74 2e 42 54 45 53 | 54 28 6d 34 2c 30 29 29 |not.BTES|T(m4,0))|
|00000420| 29 20 74 68 65 6e 0d 09 | 20 20 20 20 21 69 67 6e |) then..|    !ign|
|00000430| 6f 72 65 20 73 70 75 72 | 69 6f 75 73 20 6d 6f 75 |ore spur|ious mou|
|00000440| 73 65 20 26 20 6b 65 79 | 20 65 76 65 6e 74 73 0d |se & key| events.|
|00000450| 09 20 20 20 20 63 61 6c | 6c 20 46 6c 75 73 68 45 |.    cal|l FlushE|
|00000460| 76 65 6e 74 73 28 25 76 | 61 6c 28 69 6e 74 32 28 |vents(%v|al(int2(|
|00000470| 36 32 29 29 2c 25 76 61 | 6c 28 69 6e 74 32 28 30 |62)),%va|l(int2(0|
|00000480| 29 29 29 0d 09 20 20 65 | 6e 64 20 69 66 0d 09 20 |)))..  e|nd if.. |
|00000490| 20 72 65 73 74 79 70 65 | 20 3d 20 27 46 43 4d 44 | restype| = 'FCMD|
|000004a0| 27 09 20 20 20 20 20 20 | 20 21 66 69 6e 64 20 4c |'.      | !find L|
|000004b0| 6f 61 64 49 74 20 6f 72 | 20 71 75 69 74 20 74 6f |oadIt or| quit to|
|000004c0| 20 46 69 6e 64 65 72 09 | 20 20 20 20 0d 09 20 20 | Finder.|    ..  |
|000004d0| 69 66 20 28 47 65 74 52 | 65 73 6f 75 72 63 65 28 |if (GetR|esource(|
|000004e0| 25 76 61 6c 28 72 65 73 | 74 79 70 65 29 2c 25 76 |%val(res|type),%v|
|000004f0| 61 6c 28 69 6e 74 32 28 | 31 30 30 30 29 29 29 20 |al(int2(|1000))) |
|00000500| 3d 20 30 29 20 74 68 65 | 6e 0d 09 20 20 20 20 69 |= 0) the|n..    i|
|00000510| 66 20 28 4f 70 65 6e 52 | 65 73 46 69 6c 65 28 25 |f (OpenR|esFile(%|
|00000520| 76 61 6c 28 74 72 69 6d | 28 66 52 65 63 2e 75 4e |val(trim|(fRec.uN|
|00000530| 61 6d 65 29 29 29 20 3c | 20 30 29 20 73 74 6f 70 |ame))) <| 0) stop|
|00000540| 0d 09 20 20 65 6e 64 20 | 69 66 0d 09 20 20 66 52 |..  end |if..  fR|
|00000550| 65 63 2e 66 46 6c 61 67 | 73 20 3d 20 6d 32 09 09 |ec.fFlag|s = m2..|
|00000560| 20 21 73 74 6f 72 65 20 | 46 61 63 65 49 74 20 62 | !store |FaceIt b|
|00000570| 69 74 20 66 6c 61 67 73 | 0d 09 20 20 66 52 65 63 |it flags|..  fRec|
|00000580| 2e 78 45 6e 74 72 69 65 | 73 20 3d 20 6d 35 09 09 |.xEntrie|s = m5..|
|00000590| 20 21 73 74 6f 72 65 20 | 23 20 6f 66 20 74 61 62 | !store |# of tab|
|000005a0| 6c 65 20 65 6e 74 72 69 | 65 73 0d 09 20 20 74 68 |le entri|es..  th|
|000005b0| 65 50 74 72 20 3d 20 66 | 50 74 72 0d 09 20 20 69 |ePtr = f|Ptr..  i|
|000005c0| 66 20 28 6d 33 20 3e 20 | 2d 31 29 20 74 68 65 6e |f (m3 > |-1) then|
|000005d0| 09 20 20 20 20 20 20 20 | 21 63 61 6c 6c 20 4c 6f |.       |!call Lo|
|000005e0| 61 64 49 74 20 74 6f 20 | 65 78 70 61 6e 64 20 68 |adIt to |expand h|
|000005f0| 65 61 70 3f 0d 09 20 20 | 20 20 63 61 6c 6c 20 50 |eap?..  |  call P|
|00000600| 72 65 70 49 74 28 74 68 | 65 50 74 72 2c 6d 33 2c |repIt(th|ePtr,m3,|
|00000610| 30 2c 30 2c 74 68 65 50 | 74 72 29 0d 09 20 20 20 |0,0,theP|tr)..   |
|00000620| 20 63 61 6c 6c 20 66 4a | 75 6d 70 49 74 28 25 76 | call fJ|umpIt(%v|
|00000630| 61 6c 28 6c 6f 6e 67 28 | 74 68 65 50 74 72 29 29 |al(long(|thePtr))|
|00000640| 2c 74 68 65 50 74 72 29 | 0d 09 20 20 65 6e 64 20 |,thePtr)|..  end |
|00000650| 69 66 0d 09 20 20 63 61 | 6c 6c 20 50 72 65 70 49 |if..  ca|ll PrepI|
|00000660| 74 28 74 68 65 50 74 72 | 2c 31 31 30 30 2c 32 32 |t(thePtr|,1100,22|
|00000670| 2c 30 2c 74 68 65 50 74 | 72 29 20 20 20 20 20 20 |,0,thePt|r)      |
|00000680| 21 73 65 74 75 70 20 66 | 52 65 63 20 68 65 61 64 |!setup f|Rec head|
|00000690| 65 72 0d 09 20 20 63 61 | 6c 6c 20 50 72 65 70 49 |er..  ca|ll PrepI|
|000006a0| 74 28 74 68 65 50 74 72 | 2b 31 30 30 32 2c 31 32 |t(thePtr|+1002,12|
|000006b0| 31 30 2c 32 32 2c 30 2c | 74 68 65 50 74 72 29 20 |10,22,0,|thePtr) |
|000006c0| 21 73 65 74 75 70 20 75 | 52 65 63 20 68 65 61 64 |!setup u|Rec head|
|000006d0| 65 72 0d 09 20 20 63 61 | 6c 6c 20 50 72 65 70 49 |er..  ca|ll PrepI|
|000006e0| 74 28 74 68 65 50 74 72 | 2b 31 36 33 34 2c 31 32 |t(thePtr|+1634,12|
|000006f0| 30 30 2c 32 32 2c 30 2c | 74 68 65 50 74 72 29 20 |00,22,0,|thePtr) |
|00000700| 21 73 65 74 75 70 20 76 | 52 65 63 20 68 65 61 64 |!setup v|Rec head|
|00000710| 65 72 0d 09 20 20 66 52 | 65 63 2e 66 48 65 61 64 |er..  fR|ec.fHead|
|00000720| 28 36 29 20 3d 20 6d 34 | 20 20 20 20 20 20 20 20 |(6) = m4|        |
|00000730| 20 20 20 21 73 74 6f 72 | 65 20 65 6e 76 69 72 6f |   !stor|e enviro|
|00000740| 6e 6d 65 6e 74 20 74 79 | 70 65 0d 09 20 20 66 52 |nment ty|pe..  fR|
|00000750| 65 63 2e 75 48 65 61 64 | 28 36 29 20 3d 20 32 20 |ec.uHead|(6) = 2 |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 21 65 73 74 61 |        |   !esta|
|00000770| 62 6c 69 73 68 20 73 74 | 72 69 6e 67 20 74 79 70 |blish st|ring typ|
|00000780| 65 0d 09 20 20 74 68 65 | 50 74 72 20 3d 20 30 0d |e..  the|Ptr = 0.|
|00000790| 09 20 20 69 66 20 28 6d | 34 20 3c 20 2d 33 29 20 |.  if (m|4 < -3) |
|000007a0| 72 65 74 75 72 6e 0d 09 | 65 6e 64 20 69 66 0d 09 |return..|end if..|
|000007b0| 69 66 20 28 6d 31 20 3d | 20 2d 36 32 29 20 74 68 |if (m1 =| -62) th|
|000007c0| 65 6e 0d 09 20 20 63 61 | 6c 6c 20 50 72 65 70 49 |en..  ca|ll PrepI|
|000007d0| 74 28 6d 32 2c 6d 33 2c | 6d 34 2c 6d 35 2c 66 50 |t(m2,m3,|m4,m5,fP|
|000007e0| 74 72 29 0d 09 65 6c 73 | 65 20 69 66 20 28 28 6d |tr)..els|e if ((m|
|000007f0| 31 20 3c 20 30 29 2e 61 | 6e 64 2e 28 6d 31 20 3e |1 < 0).a|nd.(m1 >|
|00000800| 20 2d 31 31 29 29 20 74 | 68 65 6e 0d 09 20 20 69 | -11)) t|hen..  i|
|00000810| 20 3d 20 28 34 20 2a 20 | 28 2d 31 20 2d 20 6d 31 | = (4 * |(-1 - m1|
|00000820| 29 29 0d 09 20 20 66 52 | 65 63 2e 78 54 61 62 6c |))..  fR|ec.xTabl|
|00000830| 65 28 31 2b 69 29 20 3d | 20 6d 32 0d 09 20 20 66 |e(1+i) =| m2..  f|
|00000840| 52 65 63 2e 78 54 61 62 | 6c 65 28 32 2b 69 29 20 |Rec.xTab|le(2+i) |
|00000850| 3d 20 6d 33 0d 09 20 20 | 66 52 65 63 2e 78 54 61 |= m3..  |fRec.xTa|
|00000860| 62 6c 65 28 33 2b 69 29 | 20 3d 20 6d 34 0d 09 20 |ble(3+i)| = m4.. |
|00000870| 20 66 52 65 63 2e 78 54 | 61 62 6c 65 28 34 2b 69 | fRec.xT|able(4+i|
|00000880| 29 20 3d 20 6d 35 0d 09 | 65 6c 73 65 0d 09 20 20 |) = m5..|else..  |
|00000890| 69 66 20 28 74 68 65 50 | 74 72 20 3d 20 30 29 20 |if (theP|tr = 0) |
|000008a0| 74 68 65 6e 20 20 20 20 | 20 20 20 21 63 61 6c 6c |then    |   !call|
|000008b0| 20 74 6f 20 64 65 66 61 | 75 6c 74 20 6d 6f 64 75 | to defa|ult modu|
|000008c0| 6c 65 3f 0d 09 20 20 20 | 20 74 68 65 50 74 72 20 |le?..   | thePtr |
|000008d0| 3d 20 66 50 74 72 20 2b | 20 31 30 30 32 0d 09 20 |= fPtr +| 1002.. |
|000008e0| 20 65 6c 73 65 20 69 66 | 20 28 74 68 65 50 74 72 | else if| (thePtr|
|000008f0| 5e 2e 66 50 74 72 20 3c | 3e 20 66 50 74 72 29 20 |^.fPtr <|> fPtr) |
|00000900| 74 68 65 6e 0d 09 20 20 | 20 20 66 52 65 63 2e 63 |then..  |  fRec.c|
|00000910| 43 6f 6e 74 72 6f 6c 20 | 3d 20 74 68 65 50 74 72 |Control |= thePtr|
|00000920| 20 20 20 21 63 61 6c 6c | 20 74 6f 20 63 6f 6e 74 |   !call| to cont|
|00000930| 72 6f 6c 20 64 72 69 76 | 65 72 3f 0d 09 20 20 20 |rol driv|er?..   |
|00000940| 20 74 68 65 50 74 72 20 | 3d 20 66 50 74 72 20 2b | thePtr |= fPtr +|
|00000950| 20 31 36 33 34 0d 09 20 | 20 65 6e 64 20 69 66 0d | 1634.. | end if.|
|00000960| 09 20 20 74 68 65 50 74 | 72 5e 2e 6d 65 73 73 61 |.  thePt|r^.messa|
|00000970| 67 65 20 3d 20 30 0d 09 | 20 20 66 52 65 63 2e 75 |ge = 0..|  fRec.u|
|00000980| 43 6f 6d 6d 61 6e 64 20 | 3d 20 6d 31 20 20 20 20 |Command |= m1    |
|00000990| 20 20 20 20 20 21 70 61 | 73 73 20 43 6f 6d 6d 61 |     !pa|ss Comma|
|000009a0| 6e 64 20 26 20 50 61 72 | 61 6d 73 0d 09 20 20 66 |nd & Par|ams..  f|
|000009b0| 52 65 63 2e 75 50 61 72 | 61 6d 28 31 29 20 3d 20 |Rec.uPar|am(1) = |
|000009c0| 6d 32 0d 09 20 20 66 52 | 65 63 2e 75 50 61 72 61 |m2..  fR|ec.uPara|
|000009d0| 6d 28 32 29 20 3d 20 6d | 33 0d 09 20 20 66 52 65 |m(2) = m|3..  fRe|
|000009e0| 63 2e 75 50 61 72 61 6d | 28 33 29 20 3d 20 6d 34 |c.uParam|(3) = m4|
|000009f0| 0d 09 20 20 66 52 65 63 | 2e 75 50 61 72 61 6d 28 |..  fRec|.uParam(|
|00000a00| 34 29 20 3d 20 6d 35 0d | 09 20 20 63 61 6c 6c 20 |4) = m5.|.  call |
|00000a10| 66 4a 75 6d 70 49 74 28 | 25 76 61 6c 28 6c 6f 6e |fJumpIt(|%val(lon|
|00000a20| 67 28 74 68 65 50 74 72 | 29 29 2c 74 68 65 50 74 |g(thePtr|)),thePt|
|00000a30| 72 29 20 21 6a 75 6d 70 | 20 74 6f 20 46 43 4d 44 |r) !jump| to FCMD|
|00000a40| 0d 09 65 6e 64 20 69 66 | 0d 09 65 6e 64 0d 0d 09 |..end if|..end...|
|00000a50| 53 55 42 52 4f 55 54 49 | 4e 45 20 50 72 65 70 49 |SUBROUTI|NE PrepI|
|00000a60| 74 28 78 2c 62 2c 76 2c | 72 2c 66 29 0d 09 69 6d |t(x,b,v,|r,f)..im|
|00000a70| 70 6c 69 63 69 74 20 6e | 6f 6e 65 0d 43 20 4e 4f |plicit n|one.C NO|
|00000a80| 54 45 3a 20 49 66 20 79 | 6f 75 20 75 73 65 20 74 |TE: If y|ou use t|
|00000a90| 68 65 20 22 21 21 47 22 | 20 64 69 72 65 63 74 69 |he "!!G"| directi|
|00000aa0| 76 65 20 66 6f 72 20 70 | 72 65 63 6f 6d 70 69 6c |ve for p|recompil|
|00000ab0| 65 64 20 67 6c 6f 62 61 | 6c 73 2c 20 61 64 64 0d |ed globa|ls, add.|
|00000ac0| 43 20 6f 75 72 20 46 61 | 63 65 53 74 6f 72 4c 46 |C our Fa|ceStorLF|
|00000ad0| 2e 69 6e 63 20 67 6c 6f | 62 61 6c 73 20 74 6f 20 |.inc glo|bals to |
|00000ae0| 79 6f 75 72 73 20 61 6e | 64 20 74 68 65 6e 20 72 |yours an|d then r|
|00000af0| 65 6d 6f 76 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |emove fo|llowing |
|00000b00| 6c 69 6e 65 0d 09 69 6e | 63 6c 75 64 65 20 27 46 |line..in|clude 'F|
|00000b10| 61 63 65 53 74 6f 72 4c | 46 2e 69 6e 63 27 0d 20 |aceStorL|F.inc'. |
|00000b20| 20 20 20 20 20 72 65 63 | 6f 72 64 20 2f 46 61 63 |     rec|ord /Fac|
|00000b30| 65 52 65 63 2f 20 66 52 | 65 63 0d 20 20 20 20 20 |eRec/ fR|ec.     |
|00000b40| 20 63 6f 6d 6d 6f 6e 2f | 46 61 63 65 53 74 75 66 | common/|FaceStuf|
|00000b50| 66 2f 66 52 65 63 0d 09 | 73 74 72 75 63 74 75 72 |f/fRec..|structur|
|00000b60| 65 20 2f 48 65 61 64 52 | 65 63 2f 0d 09 20 20 69 |e /HeadR|ec/..  i|
|00000b70| 6e 74 65 67 65 72 2a 34 | 20 61 64 64 72 0d 09 20 |nteger*4| addr.. |
|00000b80| 20 69 6e 74 65 67 65 72 | 2a 32 20 62 61 73 65 49 | integer|*2 baseI|
|00000b90| 44 0d 09 20 20 69 6e 74 | 65 67 65 72 2a 32 20 76 |D..  int|eger*2 v|
|00000ba0| 65 72 73 49 44 0d 09 20 | 20 69 6e 74 65 67 65 72 |ersID.. | integer|
|00000bb0| 2a 32 20 6d 65 73 73 61 | 67 65 0d 09 20 20 69 6e |*2 messa|ge..  in|
|00000bc0| 74 65 67 65 72 2a 32 20 | 72 65 73 49 44 0d 09 20 |teger*2 |resID.. |
|00000bd0| 20 69 6e 74 65 67 65 72 | 2a 34 20 66 50 74 72 0d | integer|*4 fPtr.|
|00000be0| 09 65 6e 64 20 73 74 72 | 75 63 74 75 72 65 0d 09 |.end str|ucture..|
|00000bf0| 70 6f 69 6e 74 65 72 20 | 2f 48 65 61 64 52 65 63 |pointer |/HeadRec|
|00000c00| 2f 20 78 0d 09 69 6e 74 | 65 67 65 72 2a 34 20 62 |/ x..int|eger*4 b|
|00000c10| 2c 76 2c 72 2c 66 2c 69 | 0d 09 63 68 61 72 61 63 |,v,r,f,i|..charac|
|00000c20| 74 65 72 2a 34 20 72 65 | 73 74 79 70 65 0d 09 72 |ter*4 re|stype..r|
|00000c30| 65 73 74 79 70 65 20 3d | 20 27 46 43 4d 44 27 0d |estype =| 'FCMD'.|
|00000c40| 09 78 5e 2e 61 64 64 72 | 20 3d 20 6c 6f 6e 67 28 |.x^.addr| = long(|
|00000c50| 47 65 74 52 65 73 6f 75 | 72 63 65 28 25 76 61 6c |GetResou|rce(%val|
|00000c60| 28 72 65 73 74 79 70 65 | 29 2c 25 76 61 6c 28 69 |(restype|),%val(i|
|00000c70| 6e 74 32 28 31 30 30 30 | 29 29 29 29 0d 09 78 5e |nt2(1000|))))..x^|
|00000c80| 2e 62 61 73 65 49 44 20 | 3d 20 62 0d 09 78 5e 2e |.baseID |= b..x^.|
|00000c90| 76 65 72 73 49 44 20 3d | 20 76 0d 09 78 5e 2e 6d |versID =| v..x^.m|
|00000ca0| 65 73 73 61 67 65 20 3d | 20 30 0d 09 78 5e 2e 72 |essage =| 0..x^.r|
|00000cb0| 65 73 49 44 20 3d 20 72 | 0d 09 78 5e 2e 66 50 74 |esID = r|..x^.fPt|
|00000cc0| 72 20 3d 20 66 0d 09 69 | 66 20 28 66 52 65 63 2e |r = f..i|f (fRec.|
|00000cd0| 78 45 6e 74 72 69 65 73 | 20 3e 20 30 29 20 74 68 |xEntries| > 0) th|
|00000ce0| 65 6e 0d 09 20 64 6f 20 | 69 20 3d 20 30 2c 20 66 |en.. do |i = 0, f|
|00000cf0| 52 65 63 2e 78 45 6e 74 | 72 69 65 73 2d 31 0d 09 |Rec.xEnt|ries-1..|
|00000d00| 20 20 69 66 20 28 62 20 | 3d 20 66 52 65 63 2e 78 |  if (b |= fRec.x|
|00000d10| 54 61 62 6c 65 28 31 20 | 2b 20 34 2a 69 29 29 20 |Table(1 |+ 4*i)) |
|00000d20| 74 68 65 6e 0d 09 20 20 | 20 69 66 20 28 76 20 3d |then..  | if (v =|
|00000d30| 20 66 52 65 63 2e 78 54 | 61 62 6c 65 28 32 20 2b | fRec.xT|able(2 +|
|00000d40| 20 34 2a 69 29 29 20 74 | 68 65 6e 0d 09 20 20 20 | 4*i)) t|hen..   |
|00000d50| 20 69 66 20 28 30 20 3c | 3e 20 66 52 65 63 2e 78 | if (0 <|> fRec.x|
|00000d60| 54 61 62 6c 65 28 34 20 | 2b 20 34 2a 69 29 29 20 |Table(4 |+ 4*i)) |
|00000d70| 74 68 65 6e 0d 09 20 20 | 20 20 20 78 5e 2e 61 64 |then..  |   x^.ad|
|00000d80| 64 72 20 3d 20 66 52 65 | 63 2e 78 54 61 62 6c 65 |dr = fRe|c.xTable|
|00000d90| 28 34 20 2b 20 34 2a 69 | 29 0d 09 20 20 20 20 65 |(4 + 4*i|)..    e|
|00000da0| 6e 64 20 69 66 0d 09 20 | 20 20 65 6e 64 20 69 66 |nd if.. |  end if|
|00000db0| 0d 09 20 20 65 6e 64 20 | 69 66 0d 09 20 65 6e 64 |..  end |if.. end|
|00000dc0| 20 64 6f 0d 09 65 6e 64 | 20 69 66 0d 09 65 6e 64 | do..end| if..end|
|00000dd0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e00| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000e10| 2f 2b 00 04 2f 0a 4e ba | fe 5c 47 ee ff f0 50 8f |/+../.N.|.\G...P.|
|00000e20| 60 18 b4 ab 00 08 6d 02 | 60 0a 27 43 00 08 20 04 |`.....m.|`.'C.. .|
|00000e30| 0e 46 61 63 65 50 72 6f | 63 4c 46 2e 69 6e 63 46 |.FacePro|cLF.incF|
|00000e40| 02 00 00 00 50 61 72 74 | 53 49 54 78 00 00 00 00 |....Part|SITx....|
|00000e50| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 a9 06 e5 31 00 00 | 00 00 00 00 01 ac 42 a7 |.....1..|......B.|
|00000e80| 2f 00 48 6d e7 26 4e ad | 11 8a 70 02 4e 5e 4e 75 |/.Hm.&N.|..p.N^Nu|
|00000e90| d0 52 49 4e 54 45 52 52 | 4e 56 00 00 48 6d ed ec |.RINTERR|NV..Hm..|
|00000ea0| 4e ad 10 3a 1b 40 fe 18 | 4e 5e 4e 75 d3 45 54 43 |N..:.@..|N^Nu.ETC|
|00000eb0| 41 53 45 46 4e 56 00 00 | 48 e7 20 30 20 6e 00 08 |ASEFNV..|H. 0 n..|
|00000ec0| 24 6e 00 0c 26 6e 00 10 | 20 08 67 20 74 00 0c 10 |$n..&n..| .g t...|
|00000ed0| 00 b0 56 c2 44 02 4a 82 | 67 00 00 06 4a 10 66 04 |..V.D.J.|g...J.f.|
|00000ee0| 70 01 60 06 2f 08 4e ad | 05 12 60 04 70 01 24 00 |p.`./.N.|..`.p.$.|
|00000ef0| 24 80 26 82 4c ee 0c 04 | ff f4 4e 5e 4e 75 d3 45 |$.&.L...|..N^Nu.E|
|00000f00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 1e 00 f8 |...H..Mo|naco....|
|00000f10| 00 ba 00 00 00 00 00 00 | 00 00 00 48 00 00 00 48 |........|...H...H|
|00000f20| 00 00 00 00 00 08 00 06 | 00 06 00 2c 00 08 01 98 |........|...,....|
|00000f30| 01 c3 00 2c 00 08 01 98 | 01 c3 a8 c3 b7 29 00 00 |...,....|.....)..|
|00000f40| 00 62 00 00 00 62 00 00 | 00 00 01 00 00 00 00 1e |.b...b..|........|
|00000f50| 00 2c 00 08 01 98 01 c3 | 00 2c 00 08 01 98 01 c3 |.,......|.,......|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 05 |.....n..|.n...>..|
|00000f80| 39 54 05 26 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |9T.&....|.>..MPSR|
|00000f90| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 03 f0 ff ff 00 00 00 4c | 00 0b 37 b4 00 00 00 00 |.......L|..7.....|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+